Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00200_ID logo spin script.ls

Text File | 1999-04-29 | 826 b | 31 lines

property s, mypercent, mywidth, getgoing, myreviewslice
global tickrate, stagedone

on beginSprite me
  s = me.spriteNum
  mypercent = 0
  mywidth = the width of sprite s
  getgoing = the ticks + ((s - 144) * 10)
  myname = member(the memberNum of sprite s).name
  myreviewslice = the number of member ("review" && word 2 of myname)
end

on prepareFrame me
  if getgoing < the ticks then
    if mypercent < 100 then
      set the width of sprite s to float(mywidth) / 100 * (100 - mypercent)
      mypercent = min(100, mypercent + tickrate)
    else
      set the memberNum of sprite s to myreviewslice
      set the width of sprite s to float(mywidth) / 100 * (mypercent - 100)
      mypercent = min(200, mypercent + tickrate)
    end if
  end if
end

on donestage me
  if mypercent < 200 then
    stagedone = 0
  end if
end